; EXPECT: sat
(set-option :incremental false)
(set-logic ALL)

(declare-fun x () (Relation Int Int))
(declare-fun y () (Relation Int Int))
(declare-fun a () Int)
(declare-fun b () Int)
(declare-fun c () Int)
(declare-fun d () Int)
(assert (= a c))
(assert (= a d))
(assert (set.member (tuple 1 c) x))
(assert (set.member (tuple 2 d) x))
(assert (set.member (tuple a 5) y))
(assert (= y (rel.tclosure x)))
(assert (set.member (tuple 2 5) y))
(check-sat)
